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TITLE 1S H -- Intercept System Service Handler 
-IDENT ‘v04-000 


SReRReHHeeeeeeeeeeKeeeeeeeeeeeenaneneeeetenereneeeenereeeeeetareneeneeeeTereTe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ROANCE WITH THE TERMS OF SUCH License AND WITH T 


® 

® 

® 

® 

we 

. 7 

® 

® 

ad 

* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED. 

® 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 
® 
® 
w 
oF 
© 
® 


AND BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS * 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


Qooooooooooooooooooooooo 
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++ 
Facility: VAX/VMS System Service Monitor 
Abstract: 


Intercept system service handler. This code intercepts the system 
service, makes the call to user supplied routine under the right 
privilege first, after returning from user supplied routine, 
continues system service. 
Note: this code is copied into PO space and executed there. 

lf we encounter SYSSRUNDWN, copy the original system vector back, 
and let it ae this is done by re-enterring back to the entry 
point of DBGSSISHR.EXE. 


Environment: VAX/VMS 


oooo COOoooooooo 
SOooooooooooooo 


SoOoOOoOooooooooo ooo 
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o 
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Author: D.W. Thiel, Creation Date: 30-Dec-1981 
Modified By: 
P. Sager, 20-Sep-1983 
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¢ 
v04-000 DECLARATI DEBUG. SRC JISSH.MAR; 1 
33 ENABLE SUPPRESSION 
°] 
65 ; External routines 
64 ; 
65 
00 66 ; 
00 67 ; INCLUDE FILES: 
00 68 ; 
$8 9 
0 9 3 
000 71 ; MACROS: 
4 72; 
4 7 
000 74; 
44 75 ; EQUATED SYMBOLS: 
000 76 ; 
0000 77 
0000 78 SIPLDEF ; deiine IPL symbols 
0000 79 SPSLDEF ; define PSL layout symbols 
0000 80 SSGNDEF 3 define system generation parameters 
0000 81 
0000 Hf 3 
0000 83 ; OWN STORAGE: Data area 
0000 84 ; 
0000 85 
00000 a6 -PSECT SISSH_CODES RD, NOWRT, NOEXE, PIC, CON, GBL, PAGE 
0000 He ISSH_VEC_BASE:: 
00000A00 tit +4 TV_CPY: TBLKB SGNSC_SYSVECPGS*512 3; copy of transfer vector 
pane 91 ISSH_DATA_BEG:: 
00000C00 0aA00 3 DATA:  .6LK 512 ; local/global data area 
0c00 93 ISSH_DATA_END:: 
0c00 94 
0c00 95 ALIGN PAGE 
C00 96 
C00 97 ; We have 64 longwords available 
C00 9 ; without making changes to $S1.852 
C00 peteeeerereerereeerererererereeeetetenereeeeeeeneeeeeeeeeeneetesereeseeeeeserese 
0C00 «6100 ; This area has potential problems to run over allocated spaces. Not Likely to 
344 : 1 ; happen. (now the checks are placed in for overflow condition). 
oo000BBC OC 1 : }SSH_STACK==1SSH_DATA_END - 68 ; Local stack (keep track of the 
C 104 3 current active routine) 
Cc 105 : Never intercept again, if system 
: : 3 pervice is originated from the same 
: eve 
000008c0 OC 108 ISSH_STKPTR==ISSH_DATA_END = 64 ; Local stack pointer 
C 1 : 5 Long each for the next two entries, 
C 19 : (on byte each per count): 
900008D4 C 11 1SSH_B1T_15_CNT_G==1SSH_DATA_END - 44 : Bit i} n PSW count in prio 4. 
OO0O0BE8 OC 16 ISSH-BIT_15"CNT_3==ISSH_DATA_END = 24 ; Bit 15 im PSW count in prio 3 
C 11 ; It has the following structure: 
C 114 : Ist byte: total system service 


000008F C 
00000A00 


00000800 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
QO000BEC o¢ 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
OC 
0c 
bc 
C 
Be 
C 
oc 


Oe 4 a td a a = a a ss sb bs 2 bs 2 a ss ss bs ts a 4 ss ts a a 


DPV BBB BBE M.I.A III RPIPINIPOPIPIPININEY 2 OO 


=O ODNO NEW 0 OD NONE WW 0 ODOM EW - OOONOM 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


pt System Service eee yo 4 984 $3: 33: 3 AX/VMS Macro v04-00 Page 


p29 % 2: DEBUG. SRCJISSH.MAR; 1 


: and by by os. 3rd byte. “ 
: number of or orities it went 
through for each service. 
These two +3 structures are used by bebug, and Super Debug to 
catch the RET from system service. 
zone services are nested, for xample, SYSSPUTMSG calls dk == + lar od etc. 
o the Ist byte! s used to indicate we are still ie SYSS$PuT 
SYstce tas When this case happens, cobup st ly lets Sy SSGETHSG 
fe by. When * yeépurnse ngher pei depending on where it is called from 
User? D0BG? or eae =e. oe priority “sag olvays eae. o By ee “te 
the same level never same level, so a 
levels see SYSSPUIMSG. o My info. = recorded in “ - — we aigoe nse 
pth recorded in 3rd byte, etc. Th roeek. is used by DEBUGGER a 
ns to communicate, in fact, ty DEBUGGE we are really pon ey ebtentten 
to oeYSSPUTRSG only. 


saeeeereererereerererererereneeaeekeeeteeeteeeneneeeteeeeeeneeetetesetetetesteres 


[SSH_BIT_15_CNT_12==I1SSH_DATA_END - 20 ; This one has the same flavor as 


ISSH 
ISSH~ 
1SSH~ 
ISSH_USER_ADDR==1SSH_DATA_BEG 


ISSH_USER_DATA_BEG==1SSH_DATA_BEG+256 


; the above, except is not used, 
; it's only perpees is to fit in 
the code pat 

16 : Total entries been made for prio. 
CTRL-PRIO_INDEX==ISSH_DATA ry - 12; Entries been made in each prio. 
“RUNNING_FCAG==I1SSH_DATA_END - ; Flag to indicate if this system 
; service itself is running, if 

so, don’t intercept any system 

service called from this routine 


CTRL. ayy typed 3 -DATA_END = 


all priorities 
; User routine name Table, the name is 
: filled in by the mode and 
priority, declared by the user, 
and is called by the mode 
in current PSL and mask. 


; Ending of the data area (note: 
: data area starting at bigger address) 


ISSH_PRIO_MASK==ISSH_DATA_END = 4 > Routine Enable/Disable flags for 


3 
(1) 


l 
V 


SH 
~000 


PIOVOAIOAIOAVOAIOOA OVO AAPAIOAIAIAIAIAAPOIOIAAXIPAVAVAAAIAIAIAIOAIAIOOe me 


SOoOOoOoCOoCOSCOOOOOOCOOOOOSOoOoOoOoOO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


a as 2s > 2 9 4 2-1 sp 


8 


vw" 


Nee 


>< 


CoNA MAE AN SO OD NA NEW OOD NO NEW O ODN EW 


©0909 09 09 09 69 09 09 09 09 INI NISSEN NIAAA OOPAAOOOUIIIININ EW 


oo 


E 16 
stem Service Handler 15-SEP-1984 :39: AX/VMS Macro v04-00 Pa 
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~SBTTL INTERCEPT _SS_HANDLER <= System Service Call Intercept Handler 


a 
+ 


FUNCTIONAL DESCRIPTION: 
Receives control whenever a system service is intercepted. 
CALLING SEQUENCE: 
JSB with stack frame already established 
; INPUT PARAMETERS: 
(SP) : contains the address of the system service entry mask plus 6 
; IMPLICIT INPUTS: 
none 
; OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
COMPLETION CODES: 
none 
SIDE EFFECTS: 
none 


6 
(2) 


1 AF OOF 
50 0 BE 00 


3; Check to see if this system service is running. If it is, don’t intercept 
; its own system service calls. 


15s: PUSHAB ISSH 
MOVL a(SP 


RUNNING_FLAG ; Get the address cf the running 


SPT ,RO : flag (global variable, no 
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v04-000 INTERCEPT. SS_HANDLER == System Service C 5-.EP-1984 83:09:38 YoeeuG Re ISSH.MAR;1 - 3) 
f 138 ALIGN QUAD 
C 194 ISSH_ENTRY:: ; This code is re-entrant many times 
C 195 $ so all the local variables used in 
C 136 : here should have its own local 
¢ 19 ; stack, and stack pointers to be 
¢ 8 138 3; = managed 
50 6€ 06 (C3 : ? he SUBL3 #6, (SP), RO : get syates sevice vector address, 
3 ace n 
50 000000008 9} 9cO4 301 CHL ASYSSRUNDUN, RO : run down? 
3 No 
: 4 08 ; Yes, time to get out 
$344 B2 3 Run Down 
51 Q00009F4'8F DO OCOD 09 . MOVL #SYS$Q10W+<SGNSC_SYSVECPGS*512-12>,R1 
C14 08 3 get the user defined system service 
C14 09 r address from saved area 
50 DD C14 10 PUSHL RO ; USER_ADDR=SYS$RUNDWN 
00 B81 OF FB OQC16 11 CALLS #1, @(R1) ; Re-enter pe tyre ed shareable image 
+2), \¢ ; _ DBGSSISHR.EXE to clean up 
6—E 04 C2 8 12 SUBL2 #4, (SP) ; Pap ot? vepure address on 
3 e stac 
05 Wah 15 RSB 3 return to retry point, contiune 
OCIE 1§ 3:36 the real run-down 
ea 
Ocle ? ; Get the address of the system service in PO 
51 F3DE CF C1 1 10$: MOVAB. TV_CPY,R1 : get the PO base address 
50 50 00000000' 8F °S BC ‘ § suBL$ #s?ssafow, RO, RO 3 aoe the offset 
51 51 50 C1 C28 ADDL RO, RI, ri : Insert offset into R1, this 
: : : ; brings into PO area 
: : § ; Get the current mode 
7E OC OCF 8 : MOVPSL -(SP) : get PSL 
31 ASSUME <PSL$V_CURMOD+PSL$S_CURMOD>,£Q,PSL$V_IS 
6€ O03 18 €F OC31 0 EXTZV #PSLS$V-CURMOD, - ; get current mode + int stk bit 
C 3 1 #1+PSLSS_CURMOD, - 
50 C ; (SP), = 
C36 3; Mode in RO 
it 9% co C 8 4 ADDL #4,SP ; Pop off PSL 
0 0 ob OC 5 CMPL RO, #PSLSC_USER 3 Strictly allow interception only in 
c3c $ ; in user mode 
06 «13 $ ; BEQL 15$ 
SE 04 9 C ‘ § ADOL #4,SP 3; Pop off the RET on stack 
02 a1 1 ch) 40 JMP 2(k1) ; Continue system service 
C44 ¢g 
C44 4 
C44 44 
C44 45 
C44 6 
(47 4 
C48 48 


3 need to stack it.) 


1SSH 
v04-000 
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52 
50 
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os 


SE 
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wee 


ee : 


TSTL 


PUSHAB 
VL 


-—a—Oo70 0 
~NOoOMwuo™” 


SSSI SIP PAPA AA AAAS AA MIATA ESS US 


68 25S: 
co 69 ADDL 
0 
71 
72 348: 
BB 7 PUSHR 
b0 74 MOVL 
00 75 MOVL 
C ? SUBL3 
D0 ? MOVL 
7 
9 80 MOVA 


1 SUBL 
§ MOVZBL 


WMI OF WWOS OOO OPFAPAOSOWOMOWDNUINHPI VOD 107 
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70$: 
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(RO) 
208 


a se 


to see if there is an index ID, 


H_CTRL_INDEX 
PYRO 


] 
C) 
R 
2 
# 
2 


#8,SP 


#*M<R2,R3 
#PSL$C_USER,R7 


R1R 
#6.40(SP) R10 
ISSH_CTRL_INDEX,R6 


1SSH_STKPTR 

4$ 

(R2) 
ISSH_PRIO_MASK,R8 


R3,#0 
$ 
ase 


1SSH_BIT_15_CNT_12,R4 


c "B28Eb198e 60:02:28 


H pees to see if it is set 


AX/VMS Macro v04-00 


Page 
DEBUG. SRCJISSH.MAR; 1 


() 
; Yes, pop off the stack 


Continue with the system service 


if there is no ID, don’t intercept 


Sete Ge Ge Ge Ge 


; We may be able to call the user routine 


R4,R5,R6,R7,R8B,RI 


Se Ge Ge Ge 


Get the address of the Index 
(global variable) 

Test to see if it is zero 

There is user routine declared 

Pop Return address and stack locals 

Continue system service 


at this point. 


Pop off RUNNING_FLAG & CTRL_INDEX 


R10,R11>; Save registers 

? has the user mode only 

R5 points to PO saved copy 

R10 has the system service index 
R6 points to the last entry 

in the routine table 


; Get local stack address in R 


Get local stack pointer in R 

Get Old ptr value, this tells us 
where was Last intercepted 

Increment local stack pointer 

Re potets to the current priority 
eve 

Test to see if we overflow the stack 
if we are, don't intercept anymore 

We are Ok 

Take off what we had done 

Continue System service 


Clear 


R8 has routine enable mask reflecting 
all priorities 


This is used oy Prio, 3_and 4 only 
R3 could have 0, 1, 2, 3 or 4 value 
means we are starting a new cycle 

Yes, new cycle 

No, Did we come from 3 (DBG?) 

Yes, some more checking to do 

No, SO, we must come from 1, 2, or 4 
don't need to do anything except 


&) 


1$SH 
v04-000 
4 
5B 0 i 
os 88 
09 
54 OFFIC CF 
09 58 
F138 08 
54 =FEFB CF 
64 
01 3864 
06 
58 01sC54 
04 
58 4602) «54 
59 
51 
59 56 
40 
62 
6 
30 58 35 
50 9 4 
2 7? 
51 FCF cre? 
F 
OFFC 8F 
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BRB 
ADOL3 


CLRL 
CLRL 


3; Loop till R6 reach to zero. 


CMPL 


BEQL 
INCB 


CMPB 


$ 
1SSH_BIT_15_CNT_3,R4 


I1SSH_BIT_15_CNT_4,R4 


R7_R 
1S$H_DATA_BEGCROJ,R1 
(R1) 


= 
“ 
ad 


#°M<R2,R3,R4,R5,R6,R7,RB 
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DEBUG.SRCJISSH.MAR;1 (3) 


to make the code path works. 
Plunk in address in R4, increment the 
count, set pointer to next byte in R11 


: a to start 
; We eit 


her start a new cycle or came 
from 

Yes, we were at 3 

No, we are starting a new cycle, so, 
686 prio. sees this service first, 
passes in the communication variable 

Is prio. here?_ No, more checking! 

we wyre at 3. or 3 is not here, Is 
prio. 4 there? No, plung in dummy 

Yes, we really need to use prio. 4 
communication path 

Mark the fact that we have one system 
service, note, if this count is 

reater than { that means we are 
n nested services 

If we just start a new system service 

No, we are in nested one 

Set pointer in R11 to poirt to 
FP RET count for each system 
service in er tor ity 3or 4. 

We need this to set bit 15 to cause 
reserve operand fault in right FP, 
in die priority, and turn on/off 
bit 15 at the right level. 


Mark the fact that we don't cause 
reserve operand fault in FP for 
nested ones 

Clear 

Clear 


Have we = through all the 
priorities in this mode? 
Yes, all done 
No, rememeber which priority we 
are in 
We never intercept system service 
that came from the same priroity 
Yes, from same, next 
Test to see if the given priority 
is enabled in the mask, if it 
is not, loop to next 
Index * & modes 
positioned to current mode 
address of the routine 
Is any routine name there? 


av hioriie 


Get ready to call user routine 


| I 16 
| 1SSH ept System Service Handler 15-SEP-1984 23:39: AX/VMS Macro v04-00 Pa 
We 7°85 HANDLER “= System Service C Haat tt 83:03:28 DEBUG.SRCJISSH.MAR;1 nat 4) 
rh 4 3 PUSHL R8 3; Current mask 
4 4 PUSHL RG ; Total SV count originated from 
5 3; __@ service 
8 8 PUSHL R11 3; FP RET count for the same service 
D a 6 PUSHL FP 3; FP for this pysces service 
¢ C 08 PUSHL AP i; $$ argument | sf 
A 3 : PUSHL R10 ; System Service index 
0 CALLS #6,a(R1) ; Call the user routine 
F 4 71 MOVL @*xXFRREFFFF,RI 3 Indicate the fact that we went 
8 i 3 coroueh this loop 
of B 7 POPR #*M<R2,R3,R4,R5,R6,R7,RB,RO,R1I0,R1 I> 
9 F %7% 458 INCL = RO : Next higher priority 
BB 1 75 BRw 40$ 3; Next 
4 6 
4 77 508: 
4 4 DECL ISSH_STKPTR ; Pop the local stack 
8 7 MOVAB ISSH BIT_15_CNT_12,RO ; Get the address 
D 0 CMPL RO,RE 3 we have this dummy address set 
D4 1 : in R46, decrement its value, 
§ : for we have increment it, and 
4 s there is no where else to balance 
4 3 the count, so do it here. 
04 5 BNEQ 23 3; No, next check 
s § DECB (R4) ; Yes, decrement, and continue 
D44 BRB 54% § 
51 FFFFFFFF 8F 01 0D46 8 528: CMPL OXF RRFFFFF RI ; If we have gone through the loop, 
02 40 89 BEQL 548% : (DEBUG interception routine takes 
D4F 90 3 care of the count) 
4 D4F 91 DECB (R4) ; Else, we got to pop off the count 
51 5 p51 3 548: MOVL RS,R1 : gestore the address, continue 
OFFC 8F p54 9 POPR #*M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,RIID> 
SE 04 p58 394 100$: ADDL 4#4,SP : Pop of return 
02 Al 058 95 JMP 2(R1) : System service continues 
DSE 9 


| 00 81 
51 FFFFFFFE 
OF FC 
FF 
FEBS CF 
50 = FEBO gf 
5450 
l 
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R 
CNT_12 a RG 
—CNT_3 = RG 
CNT 4 = RG 
ENGTA = G 
NDEX = RG 
R1O_INDEX : RG 
BEG RG 
H_DATA_END Re 
O._ MASK = RG 
SH_RUNNING_FLAG 2 RG 
TACK = RG 
“STK 2 RG 
SH_USER_ADDR = RG 8 
SH"USER-DATA_BEG : RG 
~VEC_BASE RG 0 
SH_VEC_LENGTH = G 
USER = 
CUR = 
PSLSV_CURMOD = 
PSL$V_IS = 0000001 
SGNSC_SYSVECPGS = 00000005 
SYS$QTOw erenener x 0 
geeneene x 0 
00000000 R 0 


Allocation PSECT No. Attributes 
- O88 « 0000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS ' LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0000000 ( 0.) 4 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
$SISSH_CODES QOOO0EOO (« 3584.) 02 ¢ 2.) PIC USR CON REL GBL NOSHR NOEXE RD NOWRT NOVEC PAGE 


dooeeecoeceeceesesooscose$ 


' Performance indicators ! 
Fwemmrower screws CO we ee Sw ow > 


Phase Page faults CPU Time Elapsed Time 


Initialization 14 

i 
Th rking set Limit was 1050 pages. 
10839 bytes (3 Ik 


8 
4 
Psect synopsis output 
Cross-reference output 
Assembler run totals 33 


Command processing 
Pass 
Symbol table sort 
Pass 2 

Symbol table output 

bytes (21 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold non-local and 18 local symbols. 
404 source Lines were read in Pass 1, producing 15 object records in Pass 2. 


L 16 
| SSH == Intercept System Service Handler 15-SEP-1984 239: AX/VMS Macro v04-00 
VAX=-11 Macro Run Statistics Wes aes St} 83:09:38 


DEBUG. SRC JISSH.MAR; 1 
11 pages of virtual memory were used to define 10 macros. 


eww eaenwa wn sennense ens ewrenae > 


! Macro Library statistics ! 


Foren awmswacaomsewr ern sores aeaoe es} 


Macro Library name Macros defined 
-$255S$DUA28: (SYS.O08JJL1B8.MLB; 1 

$5eespuase tevelse STARLET.MLB;2 : 
TOTALS (all Libraries) 7 


142 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: 1SSH/0BJ=0BJ$:1SSH MSRC$:1SSH/UPDATE=(ENHS: 1SSH) +EXECMLS/LIB 
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